home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1989 February / Ahoy_Magazine_89-02_1989_Double_L.d64 / dir 1 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  7KB  |  192 lines
  1. 30 rem********************************
  2. 32 rem*       menu program v2.1      *
  3. 34 rem* (c)1988,89 double l software *
  4. 38 rem*      all rights reserved     *
  5. 40 rem********************************
  6. 41 clr:poke53296,1
  7. 42 at=679:forn=attoat+22:readm:poken,m:next
  8. 44 data32,180,2,132,251,32,180,2
  9. 46 data166,251,76,240,255,32,253,174
  10. 48 data32,158,173,32,170,177,96
  11. 50 poke53265,peek(53265)and239
  12. 60 gosub4000:v=53248:x1=75:y1=100
  13. 80 dim p$(4,12),pg$(4,12),in$(4,12):gosub5000:nn=2:b=.:gosub5190
  14. 100 poke53280,0:poke53281,1:printchr$(14):gosub2500
  15. 110 poke2040,15:pokev+39,10:pokev,x1:pokev+1,y1
  16. 120 gosub800:poke53265,peek(53265)or16:poke53296,0
  17. 140 lc=55590:p=7:h=1:pokev+21,1
  18. 145 b=b+1:ifb>nnthenb=1
  19. 150 fori=1to12:sysat,i+6,14:print"[144]"p$(b,i):next:pokev+1,y1
  20. 204 f=len(p$(b,h)):fora=0tof:pokelc+a,8:next:gosub1000
  21. 206 getan$:ifan$=""then206
  22. 208 ifan$=chr$(17)then1250
  23. 210 ifan$=chr$(145)then1300
  24. 215 ifan$=chr$(13)then2000
  25. 222 ifan$=chr$(32)thengosub3000:y1=100:goto140
  26. 225 goto204
  27. 230 print"[147]";:poke53280,0:poke53281,0:pokev+21,0
  28. 235 print"[158][204]oading...";chr$(34);p$(b,h)chr$(34);"[144]"
  29. 240 print"load";chr$(34);p$(b,h);chr$(34);",8"
  30. 250 printchr$(142)"run":print "[145][145][145][145][145][145][145][145][145]"
  31. 260 poke 631,13:poke 632,13:poke 198,2:end
  32. 800 print"[147]":sysat,2,2:print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  33. 805 sysat,1,3:print"[144][205]enu [208]rogram (c) [196]ouble [204] [211]oftware"
  34. 810 sysat,3,2:print"[221]  [144][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]  [221]"
  35. 815 fori=4to19
  36. 820 sysat,i,2:printtab(2)"[221]  [144][221]                            [221]  [221]":next
  37. 830 sysat,20,2:print"[221]  [144][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]  [221]"
  38. 835 sysat,21,2:print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  39. 840 sysat,22,1:print"[144][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  40. 850 sysat,23,1:print"[221] [150][195]rsr[144]=[211]elect  [211]pc[144]=[205]ore  [154][195]/[210][144]=[197]xecute [221]"
  41. 860 sysat,24,1:print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  42. 870 sysat,3,10:print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  43. 880 sysat,4,10:print"[221] [205] [193] [201] [206]  [205] [197] [206] [213] [221]"
  44. 890 sysat,5,10:print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  45. 900 return
  46. 1000 s=54272:pokes+23,0:pokes+24,15
  47. 1010 pokes+6,0:pokes+5,12:pokes+1,70:pokes+3,40
  48. 1020 pokes+4,0:pokes+4,65:ford=1to100:next:pokes+4,0:return
  49. 1250 y1=y1+8:ify1>188theny1=100
  50. 1255 pokev+1,y1:fori=0tof:pokelc+i,0:next
  51. 1260 h=h+1:ifh>12thenh=1
  52. 1262 p=p+1:ifp>18thenp=7
  53. 1265 lc=lc+40:iflc>56030thenlc=55590
  54. 1270 goto204
  55. 1300 y1=y1-8:ify1<100theny1=188
  56. 1305 pokev+1,y1:fori=0tof:pokelc+i,0:next
  57. 1310 h=h-1:ifh<1thenh=12
  58. 1312 p=p-1:ifp<7thenp=18
  59. 1315 lc=lc-40:iflc<55590thenlc=56030
  60. 1320 goto204
  61. 1550 sys828:pokev+21,0
  62. 1560 sysat,12,4:print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  63. 1570 printtab(4)"[221] [212]his is a 128 [208]rogram. [201]t may[221]"
  64. 1580 printtab(4)"[221] not be loaded in the 64 mode.[221]"
  65. 1590 printtab(4)"[221] [217]ou must switch to the 128   [221]"
  66. 1600 printtab(4)"[221] mode in order to load this   [221]"
  67. 1610 printtab(4)"[221] program successfully. [213]se the[221]"
  68. 1620 printtab(4)"[221] prescribed method which is   [221]"
  69. 1630 printtab(4)"[221] [196][204][207][193][196] ";chr$(34);"[208]rogname";chr$(34);".            [221]"
  70. 1640 printtab(4)"[221]       [[208]ress any [203]ey]        [221]"
  71. 1650 printtab(4)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  72. 1660 sysat,22,3:print"[144]                                  ":gosub1000
  73. 1670 getan$:ifan$=""then1670
  74. 1680 sys882:pokev+21,1:goto225
  75. 1997 rem **************************
  76. 1998 rem ****  window routine  ****
  77. 1999 rem **************************
  78. 2000 sys828
  79. 2010 sysat,4,11:print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  80. 2030 printtab(11)"[221][211]ee [201]nstructions[221]"
  81. 2040 printtab(11)"[221][210]un [208]rogram     [221]"
  82. 2050 printtab(11)"[221][195]ancel [215]indow   [221]"
  83. 2060 printtab(11)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  84. 2070 po=55507:x=0
  85. 2080 fori=1to16:pokepo+i,0:next:gosub1000
  86. 2090 getan$:ifan$=""then2090
  87. 2100 ifan$=chr$(17)thengosub2200:po=po+40:x=x+1:ifpo>55587thenpo=55507
  88. 2110 ifx>2thenx=0
  89. 2120 ifan$=chr$(13)then2140
  90. 2130 goto2080
  91. 2140 ifx=0thensys882:goto4100
  92. 2145 ifx=2then2180
  93. 2146 ifb=1andh=3orb=1andh=5orb=1andh=8then2155
  94. 2147 ifb=2andh=7then2155
  95. 2148 remifb=3andh=11then2155
  96. 2149 remifb=4andh=2then2155
  97. 2150 goto2159
  98. 2155 sys882:goto1550
  99. 2159 ifx=1thensys882
  100. 2160 fori=0to35:pokev,x1+i:ford=1to20:next:next
  101. 2170 pokev+21,0:goto230
  102. 2180 sys882:goto225
  103. 2200 fori=1to16:pokepo+i,5:next:return
  104. 2500 p$(1,1)="[198]lankspeed":in$(1,1)="[198]lank in"
  105. 2510 p$(1,2)="64 [194]ug [210]ep [201][201]":in$(1,2)="[194]ug [210]ep in"
  106. 2520 p$(1,3)="128 bug rep ii":in$(1,3)="bug rep in"
  107. 2530 p$(1,4)="[206]ight [210]aid":in$(1,4)="[206]ight [210]aid in"
  108. 2540 p$(1,5)="stix!":in$(1,5)="stix! in"
  109. 2550 p$(1,6)="[205]oveable [204]oader":in$(1,6)="[205]oveable in"
  110. 2560 p$(1,7)="[194][211][193][214][197]":in$(1,7)="[194][211][193][214][197] in"
  111. 2590 p$(1,8)="animation demo":in$(1,8)="anima. demo in"
  112. 2610 p$(1,9)="[196]io [211]olver":in$(1,9)="[196]io [211]olver in"
  113. 2615 p$(1,10)="[205]onkeys & [195]oco":in$(1,10)="[205]onkeys & [195]oc in"
  114. 2620 p$(1,11)="[208]igs & [195]ows":in$(1,11)="[208]igs & [195]ows in"
  115. 2630 p$(1,12)="[213]ndivided [208]rimes":in$(1,12)="[213]ndivided in"
  116. 2640 p$(2,1)="[212]ime [193]ngle":in$(2,1)="[212]ime in"
  117. 2650 p$(2,2)="[195]haritable [212]ask":in$(2,2)="[195]haritable in"
  118. 2660 p$(2,3)="[215]ord [207]rder":in$(2,3)="[215]ord in"
  119. 2670 p$(2,4)="[205]ulti-[208][207][203][197]":in$(2,4)="[205]ulti in"
  120. 2690 p$(2,5)="[211]ave[205]":in$(2,5)="[211]ave[205] in"
  121. 2700 p$(2,6)="[211]ave[208]":in$(2,6)="[211]ave[208] in"
  122. 2710 p$(2,7)="print effect":in$(2,7)="print in"
  123. 2720 p$(2,8)="[194]lind [194]order":in$(2,8)="[194]lind in"
  124. 2730 p$(2,9)="[195]olor [211]witch 64":in$(2,9)="[195]olor [211]witch in"
  125. 2740 p$(2,10)="             ":in$(2,10)="                "
  126. 2750 p$(2,11)="              ":in$(2,11)="               "
  127. 2760 p$(2,12)="           ":in$(2,12)="              "
  128. 2770 p$(3,4)="            ":in$(3,4)="         "
  129. 2780 p$(3,5)="               ":in$(3,5)="           "
  130. 2790 p$(3,6)="         ":in$(3,6)="        "
  131. 2800 p$(3,7)="            ":in$(3,7)="        "
  132. 2810 p$(3,8)="             ":in$(3,8)="         "
  133. 2820 p$(3,9)="             ":in$(3,9)="            "
  134. 2830 p$(3,10)="            ":in$(3,10)="       "
  135. 2840 p$(3,11)="            ":in$(3,11)="       "
  136. 2850 p$(3,12)="              ":in$(3,12)="       "
  137. 2860 p$(4,1)="    ":in$(4,1)="       "
  138. 2999 return
  139. 3000 forcl=7to18:sysat,cl,14:print"[144]                 ":next:return
  140. 4000 rempoke657,128:rem disable shift/com key
  141. 4010 rempoke775,200:rem disable listing
  142. 4020 rempoke808,234:rem disable stop/restore
  143. 4030 return
  144. 4100 sys828:pokev+21,0:zz$=in$(b,h)
  145. 4105 open2,8,2,"@0:"+zz$+",s,r"
  146. 4106 forxx=1to5
  147. 4107 input#2,tx$(xx)
  148. 4108 next:close2
  149. 4110 sysat,7,1:print"[156][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  150. 4120 fori=8to13:sysat,i,1:print"[221]                                    [221]"
  151. 4125 next
  152. 4130 sysat,14,1:print"[221]   [144][[195]/[210]=[195]ancel * [211]pc=[210]un [208]rogram][156]   [221]"
  153. 4140 sysat,15,1:print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  154. 4145 sysat,22,3:print"[144]                                  ":gosub1000
  155. 4150 forxx=1to5:sysat,7+xx,3:print"[156]"tx$(xx):next
  156. 4160 getan$:ifan$=""then4160
  157. 4170 ifan$=chr$(13)thensys882:pokev+21,1:goto204
  158. 4180 ifb=1andh=3orb=1andh=5orb=1andh=8then2155
  159. 4182 ifb=2andh=7then2155
  160. 4183 remifb=3andh=11then2155
  161. 4184 remifb=4andh=2then2155
  162. 4190 sys882:pokev+21,1
  163. 4192 fori=0to35:pokev,x1+i:ford=1to35:next:next
  164. 4194 pokev+21,0:goto230
  165. 4195 sys882:goto1550
  166. 4200 goto4160
  167. 5000 fori=828to935:reada:pokei,a:next:return
  168. 5010 data 160,0,185,0,4,153,0,192
  169. 5020 data 185,0,216,153,240,195,185,250
  170. 5030 data 4,153,250,192,185,250,216,153
  171. 5040 data 234,196,185,244,5,153,244,193
  172. 5050 data 185,244,217,153,228,197,185,238
  173. 5060 data 6,153,238,194,185,238,218,153
  174. 5070 data 222,198,200,208,205,96,160,0
  175. 5080 data 185,0,192,153,0,4,185,240
  176. 5090 data 195,153,0,216,185,250,192,153
  177. 5100 data 250,4,185,234,196,153,250,216
  178. 5110 data 185,244,193,153,244,5,185,228
  179. 5120 data 197,153,244,217,185,238,194,153
  180. 5130 data 238,6,185,222,198,153,238,218
  181. 5140 data 200,208,205,96
  182. 5190 fori=960to1022:readn:pokei,n:next:return
  183. 5200 data 0,0,0,0,0,0,0
  184. 5210 data 0,0,0,0,0,0,0
  185. 5220 data 0,0,0,0,0,1,192
  186. 5230 data 0,0,224,0,0,112,0
  187. 5240 data 255,252,0,255,255,0,255
  188. 5250 data 252,0,0,112,0,0,224
  189. 5260 data 0,1,192,0,0,0,0
  190. 5270 data 0,0,0,0,0,0,0
  191. 5280 data 0,0,0,0,0,0,0
  192.